home *** CD-ROM | disk | FTP | other *** search
/ Aminet 51 / Aminet 51 (2002)(GTI - Schatztruhe)[!][Oct 2002].iso / Aminet / gfx / fract / FlashMandelWOS.lha / FlashMandel / Install FlashMandelWOS < prev    next >
Encoding:
Text File  |  2002-03-18  |  25.2 KB  |  805 lines
  1. ; $VER: Installation script for FlashMandelWOS 2.0 (16 Mar 2002)
  2. ; © Edgar Schwan
  3. ; Created with GoldED 6.18
  4.  
  5. (if (>= (/ @installer-version 65536) 44)
  6.     (
  7.     (effect "lower_right" "radial" $00FFAA $0000FF)
  8.     (showmedia "startpic" "Pictures/Mandelbrot_def.iff" "upper_left" "none" 0)
  9.     (showmedia "startsound" "Welcome.8SVX" "upper_left" "none" 0)
  10.     (setmedia startsound "play")
  11.     )
  12. )
  13.  
  14. (set #conflevel "expert")
  15. (set #execname "FlashMandelWOS")
  16. (set #oldexecname "FlashMandelPPC")
  17. (set #assignname "FLASHMANDEL:")
  18. (set #plainassign (substr #assignname 0 (- (strlen #assignname) 1)))
  19. (set #keep_path 0)
  20. (set #settings_saved 0)
  21.  
  22. (set #TT_COLORSREMAP "0")          ; default tooltypes
  23. (set #TT_FONTNAME "courier.font")
  24. (set #TT_FONTSIZE "13")
  25. (set #TT_IMAGMAX "1.125")
  26. (set #TT_IMAGMIN "-1.125")
  27. (set #TT_JULIACONSTIMAG "-0.26")
  28. (set #TT_JULIACONSTREAL "-0.72")
  29. (set #TT_REALMAX "1.0")
  30. (set #TT_REALMIN "-2.0")
  31. (set #TT_SCREENDEPTH "8")
  32. (set #TT_SCREENWIDTH "800")
  33. (set #TT_SCREENHEIGHT "600")
  34. (set #TT_SCREENMODE "0x50041000")
  35. (set #TT_STARTPRI "-3")
  36. (set #TT_POWER "1")
  37. (set #TT_STARTWITHJULIA "0")
  38. (set #TT_USEPPC "1")
  39. (set #TT_USERNAME "Amiga_Rulez!")
  40.  
  41. (                              ; english
  42. (set #txt_wrongversion
  43. (cat "You have an old version of the program 'Installer' "
  44.      "on your Amiga!\n\nThe installation procedure needs at least Installer 42.9.\n\n"
  45.      "Please check your configuration!"))
  46. (set #txt_welcome
  47. (cat "Welcome to the Installation of FlashMandelWOS!"))
  48. (set #txt_wrong_os
  49. (cat "Incorrect OS version (FlashMandelWOS requires OS 39 or better)!"))
  50. (set #txt_misc_error
  51. (cat "An error has occurred during installation. Please check the log file to understand the error."))
  52. (set #txt_choose_dir_head
  53. (cat "Please choose the installation path.\nA new drawer named 'FlashMandel' will be created there!"))
  54. (set #txt_cpu_error
  55. (cat "FlashMandelWOS needs at least a 68020-CPU and a Floating-Point-Processor!"))
  56. (set #txt_ask_languages
  57. (cat "Please select the languages to install.\nThe english language is built in the program!"))
  58. (set #txt_italian
  59. (cat "italian"))
  60. (set #txt_german
  61. (cat "german"))
  62. (set #default_language %00)
  63. (set #txt_ask_files
  64. (cat "Please select the files to install!"))
  65. (set #txt_documentation
  66. (cat "documentation"))
  67. (set #txt_pictures
  68. (cat "example-pictures"))
  69. (set #txt_palettes
  70. (cat "example-colorpalettes"))
  71. (set #txt_sources
  72. (cat "sources (for programmers)"))
  73. (set #txt_arexx-scripts
  74. (cat "arexx-scripts"))
  75. (set #txt_overwrite
  76. (cat "FlashMandel has been installed before.\n\nWhat should I do with this installation?\n\nAll files in the directory '" #assignname "sources' and '" #assignname "Developer' will surely be lost!!"))
  77. (set #txt_update_inst
  78. (cat "Update old installation"))
  79. (set #txt_new_inst
  80. (cat "Delete old installation and install it once more"))
  81. (set #txt_delete_inst
  82. (cat "Delete it forever"))
  83. (set #txt_really_delete
  84. (cat "Do you really want to delete FlashMandel?"))
  85. (set #txt_delete
  86. (cat "Deleting old installation..."))
  87. (set #txt_keep_path
  88. (cat "Keep path of old installation?\n\n(%s)"))
  89. (set #txt_copy_pictures
  90. (cat "Copy example-pictures..."))
  91. (set #txt_copy_palettes
  92. (cat "Copy example-palettes..."))
  93. (set #txt_copy_docs
  94. (cat "Copy documentation..."))
  95. (set #txt_copy_sources
  96. (cat "Copy sources..."))
  97. (set #txt_copy_arexx-scripts
  98. (cat "Copy arexx-scripts..."))
  99. (set #txt_copy_deutsch
  100. (cat "Copy german catalog..."))
  101. (set #txt_copy_italiano
  102. (cat "Copy italian catalog..."))
  103. (set #txt_copy_prog
  104. (cat "Copy executable..."))
  105. (set #txt_create_dir
  106. (cat "Create directory '%s'..."))
  107. (set #txt_copy_icon
  108. (cat "Copy icon..."))
  109. (set #txt_keep_settings
  110. (cat "Keep configuration from old installation?"))
  111. (set #txt_add_assign
  112. (cat "Add a line to the user-startup!"))
  113. (set #txt_add_assign_msg
  114. (cat "To run FlashMandel correctly,\nI have to add a line to the user-startup:\n\nAssign " #assignname " \"%s\"\n\nProceed?"))
  115. )
  116.  
  117. (if (= @language "deutsch")    ; deutsch
  118. (
  119. (set #txt_wrongversion
  120. (cat "Achtung! Es ist eine alte Version des Programmes 'Installer' "
  121.      "auf Ihrem Amiga!\n\nDie Installation benötigt mindestens Installer 42.9.\n\n"
  122.      "Bitte überprüfen Sie Ihre Konfiguration!"))
  123. (set #txt_welcome
  124. (cat "Willkommen zur Installation von FlashMandelWOS!"))
  125. (set #txt_wrong_os
  126. (cat "Inkorrekte OS-Version. Flashmandel benötigt mindestens OS 39 oder besser."))
  127. (set #txt_misc_error
  128. (cat "Während der Installation trat ein Fehler auf. Bitte prüfen Sie das Log-File für weitere Informationen!"))
  129. (set #txt_choose_dir_head
  130. (cat "Bitte wählen Sie den Installations-Pfad.\nEin neues Verzeichnis namens 'FlashMandel' wird automatisch erzeugt!"))
  131. (set #txt_cpu_error
  132. (cat "FlashMandelWOS benötigt mindestens eine 68020-CPU inclusive Fließkomma-Prozessor!"))
  133. (set #txt_cpu_error
  134. (cat "FlashMandelWOS benötigt mindestens eine 68020-CPU inclusive Fließkomma-Prozessor!"))
  135. (set #txt_ask_languages
  136. (cat "Wählen Sie die zu installierenden Sprachen.\nDie englische Sprache ist im Programm eingebaut!"))
  137. (set #txt_italian
  138. (cat "Italienisch"))
  139. (set #txt_german
  140. (cat "Deutsch"))
  141. (set #default_language %01)
  142. (set #txt_ask_files
  143. (cat "Welche der folgenden Dateien sollen installiert werden?"))
  144. (set #txt_documentation
  145. (cat "Dokumentation"))
  146. (set #txt_pictures
  147. (cat "Beispiel-Bilder"))
  148. (set #txt_palettes
  149. (cat "Beispiel-Farbpaletten"))
  150. (set #txt_sources
  151. (cat "Quelltexte (für Programmierer)"))
  152. (set #txt_arexx-scripts
  153. (cat "ARexx-Skripte"))
  154. (set #txt_overwrite
  155. (cat "FlashMandel ist schon einmal installiert worden.\n\nWas soll mit dieser Installation geschehen?\n\nAlle im Verzeichnis '" #assignname "sources' bzw. '" #assignname "Developer' befindlichen Dateien werden auf jeden Fall gelöscht!"))
  156. (set #txt_update_inst
  157. (cat "Updaten"))
  158. (set #txt_new_inst
  159. (cat "Löschen und neu installieren"))
  160. (set #txt_delete_inst
  161. (cat "Installation nur löschen"))
  162. (set #txt_really_delete
  163. (cat "Wollen Sie FlashMandel wirklich löschen?"))
  164. (set #txt_delete
  165. (cat "Alte Installation wird gelöscht..."))
  166. (set #txt_keep_path
  167. (cat "Pfad von alter Installation beibehalten?\n\n(%s)"))
  168. (set #txt_copy_pictures
  169. (cat "Kopiere Beispielgrafiken..."))
  170. (set #txt_copy_palettes
  171. (cat "Kopiere Beispielpaletten..."))
  172. (set #txt_copy_docs
  173. (cat "Kopiere Dokumentation..."))
  174. (set #txt_copy_sources
  175. (cat "Kopiere Quelltexte..."))
  176. (set #txt_copy_arexx-scripts
  177. (cat "Kopiere ARexx-Skripte..."))
  178. (set #txt_copy_deutsch
  179. (cat "Kopiere deutschen Katalog..."))
  180. (set #txt_copy_italiano
  181. (cat "Kopiere italienischen Katalog..."))
  182. (set #txt_copy_prog
  183. (cat "Kopiere Programm..."))
  184. (set #txt_create_dir
  185. (cat "Erzeuge Verzeichnis '%s'..."))
  186. (set #txt_copy_icon
  187. (cat "Kopiere Piktogramm..."))
  188. (set #txt_keep_settings
  189. (cat "Konfiguration von alter Installation übernehmen?"))
  190. (set #txt_add_assign
  191. (cat "Füge eine Zeile der user-startup hinzu!"))
  192. (set #txt_add_assign_msg
  193. (cat "Für den ordnungsgemäßen Betrieb von FlashMandel,\nmuß eine Zeile der user-startup hinzugefügt werden:\n\nAssign " #assignname " \"%s\"\n\nSoll dies nun geschehen?"))
  194. ))
  195.  
  196. (if (= @language "italiano")             ; italiano
  197. (
  198. (set #txt_wrongversion
  199. (cat "Mi dispiace, hai una vecchia versione del programma 'Installer' "
  200.      "sul tuo Amiga!\n\nLa procedura di installazone necessita di almeno il programma Installer versione 42.9.\n\n"
  201.      "Per favore controlla la tua configurazione!"))
  202. (set #txt_welcome
  203. (cat "Benvenuto nell'installazione di FlashMandelWOS!"))
  204. (set #txt_wrong_os
  205. (cat "Mi dispiace, Sistema Operativo non supportato (FlashMandelWOS necessita di almeno OS 39)!"))
  206. (set #txt_misc_error
  207. (cat "C'è stato un problema durante l'installazione. Controlla il file di log per conoscere l'errore."))
  208. (set #txt_choose_dir_head
  209. (cat "Scegli il percorso dell'installazione.\nUn nuovo cassetto di nome 'FlashMandel' verrà creato!"))
  210. (set #txt_cpu_error
  211. (cat "FlashMandelWOS necessita di almeno un processore MC68020 e un coprocessore matematico!"))
  212. (set #txt_ask_languages
  213. (cat "Per favore seleziona la lingua da installare.\nL'inglese è il linguaggio predefinito!"))
  214. (set #txt_italian
  215. (cat "italiano"))
  216. (set #txt_german
  217. (cat "tedesco"))
  218. (set #default_language %10)
  219. (set #txt_ask_files
  220. (cat "Per favore seleziona i files da installare!"))
  221. (set #txt_documentation
  222. (cat "documentazione"))
  223. (set #txt_pictures
  224. (cat "immagini di esempio"))
  225. (set #txt_palettes
  226. (cat "tavolozze di esempio"))
  227. (set #txt_sources
  228. (cat "codici sorgenti (per programmatori)"))
  229. (set #txt_arexx-scripts  ;new
  230. (cat "arexx-scripts"))
  231. (set #txt_overwrite
  232. (cat "FlashMandel has been installed before.\n\nWhat should I do with this installation?\n\nAll files in the directory '" #assignname "sources' and '" #assignname "Developer' will surely be lost!!"))
  233. ;new   (cat "E' già presente una installazione di FlashMandel.\n\nCosa vuoi farne?\n\nTutti i files nel cassetto '" #assignname "sources' saranno sicuramente persi!!"))
  234. (set #txt_update_inst
  235. (cat "Aggiorna la preesistente installazione"))
  236. (set #txt_new_inst
  237. (cat "Cancella l'installazione presente e reinstalla ancora una volta"))
  238. (set #txt_delete_inst
  239. (cat "Cancella tutto per sempre"))
  240. (set #txt_really_delete
  241. (cat "Vuoi veramente cancellare FlashMandel?"))
  242. (set #txt_delete
  243. (cat "Sto cancellando la vecchia installazione..."))
  244. (set #txt_keep_path
  245. (cat "Mantengo il percorso della vecchia installazione?\n\n(%s)"))
  246. (set #txt_copy_pictures
  247. (cat "Copio le immagini di esempio..."))
  248. (set #txt_copy_palettes
  249. (cat "Copio le tavolozze di esempio..."))
  250. (set #txt_copy_docs
  251. (cat "Copio la documentazione..."))
  252. (set #txt_copy_sources
  253. (cat "Copio il codice sorgente..."))
  254. (set #txt_copy_arexx-scripts   ;new
  255. (cat "Copy arexx-scripts..."))
  256. (set #txt_copy_deutsch
  257. (cat "Copio i cataloghi per il tedesco..."))
  258. (set #txt_copy_italiano
  259. (cat "Copio i cataloghi per l'italiano..."))
  260. (set #txt_copy_prog
  261. (cat "Copio l'eseguibile..."))
  262. (set #txt_create_dir
  263. (cat "Creo il cassetto '%s'..."))
  264. (set #txt_copy_icon
  265. (cat "Copio l'icona..."))
  266. (set #txt_keep_settings
  267. (cat "Mantengo la configurazione della vecchia installazione?"))
  268. (set #txt_add_assign
  269. (cat "Aggiungo una riga alla user-startup!"))
  270. (set #txt_add_assign_msg
  271. (cat "Affinchè FlashMandel funzioni correttamente,\naggiungo una riga alla user-startup:\n\nAssign " #assignname " \"%s\"\n\nProcedo?"))
  272. ))
  273.  
  274. ; check installer-version
  275.  
  276. (set ver (/ @installer-version 65536))
  277. (set rev (- @installer-version (* ver 65536)))
  278.  
  279. (debug ("Installer-Version: %ld.%ld" ver rev))
  280.  
  281. (if (< ver 42)
  282.     (abort #txt_wrong_inst)
  283. )
  284.  
  285. ; check if we are running under correct OS
  286.  
  287. (if (< (/ (getversion) 65536) 39)
  288.     (abort #txt_wrong_os)
  289. )
  290.  
  291. ; check CPU and FPU
  292.  
  293. (if (patmatch "68000|68010" (database "cpu"))
  294.     (abort #txt_cpu_error)
  295. )
  296. (if (patmatch "68881|68882|FPU040" (database "fpu"))
  297.     (abort #txt_cpu_error)
  298. )
  299.  
  300. ; error handling
  301.  
  302. (onerror
  303.     (if (> @ioerr 0)
  304.         (
  305.             (message(#txt_misc_error))
  306.         )
  307.     )
  308.  
  309.     (exit (quiet))
  310. )
  311.  
  312. (welcome #txt_welcome)
  313.  
  314. ; handling for installation-dir
  315.  
  316. (set #update 2)
  317. (set #keep_path 0)
  318.  
  319. (if (getassign #plainassign "a")
  320.   (
  321. ;    (set #update                  ; old installation found
  322. ;        (askbool
  323. ;            (prompt #txt_overwrite)
  324. ;            (help "")
  325. ;            (default 1)
  326. ;            (choices #txt_update_inst #txt_delete_inst)
  327. ;            )
  328. ;        )
  329.     (set #update
  330.         (askchoice
  331.             (prompt #txt_overwrite)
  332.             (help @askchoice-help)
  333.             (default 0)
  334.             (choices #txt_update_inst #txt_new_inst #txt_delete_inst)
  335.             )
  336.         )
  337.  
  338.     (debug ("#update: %ld" #update))
  339.  
  340.     (if (= #update 0)
  341.         (                                   ; ** do update **
  342.         (iconinfo                                    ; keep old tooltype-settings
  343.             (dest (cat #assignname #oldexecname))
  344.             (gettooltype "COLORSREMAP" "#TT_COLORSREMAP"))
  345.         (iconinfo
  346.             (dest (cat #assignname #oldexecname))
  347.             (gettooltype "FONTNAME" "#TT_FONTNAME"))
  348.         (debug ("tooltype 'FONTNAME': '%s'" #TT_FONTNAME))
  349.         (iconinfo
  350.             (dest (cat #assignname #oldexecname))
  351.             (gettooltype "FONTSIZE" "#TT_FONTSIZE"))
  352.         (iconinfo
  353.             (dest (cat #assignname #oldexecname))
  354.             (gettooltype "IMAGMAX" "#TT_IMAGMAX"))
  355.         (iconinfo
  356.             (dest (cat #assignname #oldexecname))
  357.             (gettooltype "IMAGMIN" "#TT_IMAGMIN"))
  358.         (iconinfo
  359.             (dest (cat #assignname #oldexecname))
  360.             (gettooltype "JULIACONSTIMAG" "#TT_JULIACONSTIMAG"))
  361.         (iconinfo
  362.             (dest (cat #assignname #oldexecname))
  363.             (gettooltype "JULIACONSTREAL" "#TT_JULIACONSTREAL"))
  364.         (iconinfo
  365.             (dest (cat #assignname #oldexecname))
  366.             (gettooltype "REALMAX" "#TT_REALMAX"))
  367.         (iconinfo
  368.             (dest (cat #assignname #oldexecname))
  369.             (gettooltype "REALMIN" "#TT_REALMIN"))
  370.         (iconinfo
  371.             (dest (cat #assignname #oldexecname))
  372.             (gettooltype "SCREENDEPTH" "#TT_SCREENDEPTH"))
  373.         (iconinfo
  374.             (dest (cat #assignname #oldexecname))
  375.             (gettooltype "SCREENWIDTH" "#TT_SCREENWIDTH"))
  376.         (iconinfo
  377.             (dest (cat #assignname #oldexecname))
  378.             (gettooltype "SCREENHEIGHT" "#TT_SCREENHEIGHT"))
  379.         (iconinfo
  380.             (dest (cat #assignname #oldexecname))
  381.             (gettooltype "SCREENMODE" "#TT_SCREENMODE"))
  382.         (iconinfo
  383.             (dest (cat #assignname #oldexecname))
  384.             (gettooltype "STARTPRI" "#TT_STARTPRI"))
  385.         (iconinfo
  386.             (dest (cat #assignname #oldexecname))
  387.             (gettooltype "POWER" "#TT_POWER"))
  388.         (iconinfo
  389.             (dest (cat #assignname #oldexecname))
  390.             (gettooltype "STARTWITHJULIA" "#TT_STARTWITHJULIA"))
  391.         (iconinfo
  392.             (dest (cat #assignname #oldexecname))
  393.             (gettooltype "USEPPC" "#TT_USEPPC"))
  394.         (iconinfo
  395.             (dest (cat #assignname #oldexecname))
  396.             (gettooltype "USERNAME" "#TT_USERNAME"))
  397.  
  398.         (set #settings_saved 1)
  399.  
  400.         (delete (cat #assignname "developer")            ; delete developer
  401.             (prompt #txt_delete)
  402.             (help "")
  403.             (optional force)
  404.             (all)
  405.             )
  406.         (delete (cat #assignname "docs")                 ; delete docs
  407.             (prompt #txt_delete)
  408.             (help "")
  409.             (optional force)
  410.             (all)
  411.             )
  412.         (delete (cat #assignname #oldexecname)           ; delete old executable
  413.             (prompt #txt_delete)
  414.             (help "")
  415.             (optional force)
  416.             (infos)
  417.             )
  418.         (delete (cat #assignname #oldexecname ".readme") ; delete old readme
  419.             (prompt #txt_delete)
  420.             (help "")
  421.             (optional force)
  422.             (infos)
  423.             )
  424.         (delete (cat #assignname "FlashMandel.readme")   ; delete old readme (2)
  425.             (prompt #txt_delete)
  426.             (help "")
  427.             (optional force)
  428.             (infos)
  429.             )
  430.         (delete (cat #assignname "FlashMandel.ilbm")      ; delete logo
  431.             (prompt #txt_delete)
  432.             (help "")
  433.             (optional force)
  434.             (infos)
  435.             )
  436. ;        (delete (cat #assignname "catalogs")       ; delete catalogs
  437. ;            (prompt #txt_delete)
  438. ;            (help "")
  439. ;            (optional force)
  440. ;            (all)
  441. ;            )
  442.         (set #keep_path 1)
  443.         (set @default-dest (expandpath #assignname))
  444.         )
  445.         )
  446.  
  447.     (if (= #update 1)
  448.         (                                   ; ** do new installation **
  449.         (delete (cat #assignname "#?")             ; delete files in FLASHMANDEL:
  450.             (prompt #txt_delete)
  451.             (help "")
  452.             (optional force)
  453.             (confirm)
  454.             (all)
  455.             )
  456.  
  457.         (set #keep_path
  458.             (askbool                               ; keep old path ?
  459.                 (prompt (#txt_keep_path (expandpath #assignname)))
  460.                 (help "")
  461.                 (default 1)
  462.                 )
  463.             )
  464.  
  465.         (if #keep_path
  466.             (                                      ; - keep it ...
  467.                 (set @default-dest (expandpath #assignname))
  468.                 )
  469.             (                                      ; - use new path ...
  470.                 (set #oldpath (expandpath #assignname))
  471.                 (debug ("alter pfad: '%s'" #oldpath))
  472.                 (run (cat "Assign " #assignname " remove")
  473.                     (prompt "")
  474.                     (help "")
  475.                     )
  476.                 (delete #oldpath                ; delete FLASHMANDEL:
  477.                     (prompt #txt_delete)
  478.                     (help "")
  479.                     (optional force)
  480.                     (infos)
  481.                     (all)
  482.                     )
  483.                 )
  484.             )
  485.             )
  486.         )
  487.  
  488.     (if (= #update 2)
  489.         (                                   ; ** delete FlashMandel **
  490.         (message #txt_really_delete)
  491.  
  492.         (debug ("alles löschen"))
  493.  
  494.         (set #path (expandpath #assignname))
  495.  
  496.         (debug ("path: '%s'" #path))
  497.  
  498.         (run (cat "Assign " #assignname " remove") ; remove assign
  499.              (prompt "")
  500.              (help "")
  501.              )
  502.  
  503.         (delete #path                              ; delete files in FLASHMANDEL:
  504.             (prompt #txt_delete)
  505.             (help "")
  506.             (optional force)
  507.             (confirm)
  508.             (all)
  509.             )
  510.  
  511.         (exit (quiet))                              ; ready
  512.         )
  513.         )
  514.     )
  515. )
  516.  
  517. (if (= #keep_path 0)
  518.     (
  519.         (set @default-dest            ; ask installation-directory
  520.             (askdir
  521.                 (prompt #txt_choose_dir_head)
  522.                 (help @askdir-help)
  523.                 (default @default-dest)
  524.                 )
  525.             )
  526.     (set @default-dest (tackon @default-dest "FlashMandel"))
  527.     )
  528. )
  529. (debug ("neuer pfad: '%s'" @default-dest))
  530.  
  531. ; ask languages to install
  532.  
  533. (set #languages
  534.     (askoptions
  535.         (prompt #txt_ask_languages)
  536.         (help @askoptions-help)
  537.         (choices #txt_german #txt_italian)
  538.         (default #default_language)
  539.     )
  540. )
  541.  
  542. ; ask files to install
  543.  
  544. (if (= #update 0)
  545.    (set #files_default %01001)
  546.    (set #files_default %01111)
  547.    )
  548.  
  549. (set #files
  550.     (askoptions
  551.         (prompt #txt_ask_files)
  552.         (help @askoptions-help)
  553.         (choices #txt_pictures #txt_palettes #txt_documentation #txt_sources #txt_arexx-scripts)
  554.         (default #files_default)
  555.     )
  556. )
  557.  
  558. ; create new directory, if necessary
  559.  
  560. (if (= #keep_path 0)
  561.     (makedir @default-dest
  562.         (prompt (#txt_create_dir @default-dest))
  563.         (help @makedir-help)
  564.         (infos)
  565.     )
  566. )
  567.  
  568. (makeassign #plainassign @default-dest)
  569.  
  570. ; copy files
  571.  
  572. (if #files
  573.     ((if (IN #files 0)
  574.         ((copyfiles                                      ; copy picture-files
  575.             (prompt #txt_copy_pictures)
  576.             (help @copyfiles-help)
  577.             (source "Pictures")
  578.             (dest (cat #assignname "Pictures"))
  579.             (all)
  580.             (infos)
  581.             (optional askuser)
  582.             (confirm #conflevel)
  583.             )
  584.         (run (cat "c:copy Pictures.info " #assignname "Pictures.info QUIET NOREQ")   ; does not work with 'copyfiles'
  585.             (prompt #txt_copy_icon)
  586.             (help "")
  587.             )
  588.         )
  589.      )
  590.      (if (IN #files 1)
  591.         ((copyfiles                                      ; copy palette-files
  592.             (prompt #txt_copy_palettes)
  593.             (help @copyfiles-help)
  594.             (source "Palettes")
  595.             (dest (cat #assignname "Palettes"))
  596.             (all)
  597.             (infos)
  598.             (optional askuser)
  599.             (confirm #conflevel)
  600.             )
  601.         (run (cat "c:copy Palettes.info " #assignname "Palettes.info QUIET NOREQ")   ; does not work with 'copyfiles'
  602.             (prompt #txt_copy_icon)
  603.             (help "")
  604.             )
  605.         )
  606.      )
  607.      (if (IN #files 2)
  608.         ((copyfiles                                      ; copy documentation
  609.             (prompt #txt_copy_docs)
  610.             (help @copyfiles-help)
  611.             (source "Docs")
  612.             (dest (cat #assignname "Docs"))
  613.             (all)
  614.             (infos)
  615.             (optional askuser)
  616.             (confirm #conflevel)
  617.             )
  618.         (run (cat "c:copy Docs.info " #assignname "Docs.info QUIET NOREQ")   ; does not work with 'copyfiles'
  619.             (prompt #txt_copy_icon)
  620.             (help "")
  621.             )
  622.         )
  623.      )
  624.      (if (IN #files 3)
  625.         ((copyfiles                                      ; copy sources
  626.             (prompt #txt_copy_sources)
  627.             (help @copyfiles-help)
  628.             (source "Developer")
  629.             (dest (cat #assignname "Developer"))
  630.             (all)
  631.             (infos)
  632.             (optional askuser)
  633.             (confirm #conflevel)
  634.             )
  635.         (run (cat "c:copy Developer.info " #assignname "Developer.info QUIET NOREQ")   ; does not work with 'copyfiles'
  636.             (prompt #txt_copy_icon)
  637.             (help "")
  638.             )
  639.          )
  640.      )
  641.      (if (IN #files 4)
  642.         ((copyfiles                                      ; copy arexx-scripts
  643.             (prompt #txt_copy_arexx-scripts)
  644.             (help @copyfiles-help)
  645.             (source "arexx")
  646.             (dest (cat #assignname "arexx"))
  647.             (all)
  648.             (infos)
  649.             (optional askuser)
  650.             (confirm #conflevel)
  651.             )
  652.         (run (cat "c:copy arexx.info " #assignname "arexx.info QUIET NOREQ")   ; does not work with 'copyfiles'
  653.             (prompt #txt_copy_icon)
  654.             (help "")
  655.             )
  656.         )
  657.      )
  658.     )
  659. )
  660.  
  661. ; copy languages
  662.  
  663. (if #languages
  664.     (
  665.         (makedir (cat #assignname "catalogs")
  666.             (prompt (#txt_create_dir (cat #assignname "catalogs")))
  667.             (help @makedir-help)
  668.             (confirm #conflevel)
  669.             )
  670.  
  671.         (if (IN #languages 0)                             ; deutsch
  672.             (copyfiles
  673.                 (prompt #txt_copy_deutsch)
  674.                 (help @copyfiles-help)
  675.                 (source "catalogs/deutsch")
  676.                 (dest (cat #assignname "catalogs/deutsch"))
  677.                 (all)
  678.                 (optional askuser)
  679.                 (confirm #conflevel)
  680.                 )
  681.             )
  682.         (if (IN #languages 1)                              ; italiano
  683.             (copyfiles
  684.                 (prompt #txt_copy_italiano)
  685.                 (help @copyfiles-help)
  686.                 (source "catalogs/italiano")
  687.                 (dest (cat #assignname "catalogs/italiano"))
  688.                 (all)
  689.                 (optional askuser)
  690.                 (confirm #conflevel)
  691.                 )
  692.             )
  693.     )
  694. )
  695.  
  696. (copyfiles                    ; copy executable
  697.     (prompt #txt_copy_prog)
  698.     (help @copyfiles-help)
  699.     (source #execname)
  700.     (dest #assignname)
  701.     (infos)
  702.     (optional askuser)
  703.     (confirm #conflevel)
  704.     )
  705.  
  706. (copyfiles                    ; copy readme
  707.     (prompt #txt_copy_prog)
  708.     (help @copyfiles-help)
  709.     (source (cat #execname ".readme"))
  710.     (dest #assignname)
  711.     (infos)
  712.     (optional askuser)
  713.     (confirm #conflevel)
  714.     )
  715.  
  716. (copyfiles                    ; copy Welcome.8svx
  717.     (prompt #txt_copy_prog)
  718.     (help @copyfiles-help)
  719.     (source "Welcome.8svx")
  720.     (dest #assignname)
  721.     (infos)
  722.     (optional askuser)
  723.     (confirm #conflevel)
  724.     )
  725.  
  726. (if (= #settings_saved 1)
  727.     (if (askbool
  728.             (prompt #txt_keep_settings)
  729.             (help "")
  730.             (default 1))
  731.         (
  732.         (tooltype                                    ; set old tooltype-settings
  733.             (dest (cat #assignname #execname))
  734.             (settooltype "COLORSREMAP" #TT_COLORSREMAP))
  735.         (tooltype
  736.             (dest (cat #assignname #execname))
  737.             (settooltype "FONTNAME" #TT_FONTNAME))
  738.         (tooltype
  739.             (dest (cat #assignname #execname))
  740.             (settooltype "FONTSIZE" #TT_FONTSIZE))
  741.         (tooltype
  742.             (dest (cat #assignname #execname))
  743.             (settooltype "IMAGMAX" #TT_IMAGMAX))
  744.         (tooltype
  745.             (dest (cat #assignname #execname))
  746.             (settooltype "IMAGMIN" #TT_IMAGMIN))
  747.         (tooltype
  748.             (dest (cat #assignname #execname))
  749.             (settooltype "JULIACONSTIMAG" #TT_JULIACONSTIMAG))
  750.         (tooltype
  751.             (dest (cat #assignname #execname))
  752.             (settooltype "JULIACONSTREAL" #TT_JULIACONSTREAL))
  753.         (tooltype
  754.             (dest (cat #assignname #execname))
  755.             (settooltype "REALMAX" #TT_REALMAX))
  756.         (tooltype
  757.             (dest (cat #assignname #execname))
  758.             (settooltype "REALMIN" #TT_REALMIN))
  759.         (tooltype
  760.             (dest (cat #assignname #execname))
  761.             (settooltype "SCREENDEPTH" #TT_SCREENDEPTH))
  762.         (tooltype
  763.             (dest (cat #assignname #execname))
  764.             (settooltype "SCREENWIDTH" #TT_SCREENWIDTH))
  765.         (tooltype
  766.             (dest (cat #assignname #execname))
  767.             (settooltype "SCREENHEIGHT" #TT_SCREENHEIGHT))
  768.         (tooltype
  769.             (dest (cat #assignname #execname))
  770.             (settooltype "SCREENMODE" #TT_SCREENMODE))
  771.         (tooltype
  772.             (dest (cat #assignname #execname))
  773.             (settooltype "STARTPRI" #TT_STARTPRI))
  774.         (tooltype
  775.             (dest (cat #assignname #execname))
  776.             (settooltype "POWER" #TT_POWER))
  777.         (tooltype
  778.             (dest (cat #assignname #execname))
  779.             (settooltype "STARTWITHJULIA" #TT_STARTWITHJULIA))
  780.         (tooltype
  781.             (dest (cat #assignname #execname))
  782.             (settooltype "USEPPC" #TT_USEPPC))
  783.         (tooltype
  784.             (dest (cat #assignname #execname))
  785.             (settooltype "USERNAME" #TT_USERNAME))
  786.         )
  787.     )
  788. )
  789.  
  790. ; add assign to user-startup
  791.  
  792. (if (askbool
  793.         (prompt (#txt_add_assign_msg @default-dest))
  794.         (help "")
  795.         )
  796.     (startup #execname
  797.         (prompt #txt_add_assign)
  798.         (help @startup-help)
  799.         (command (cat "Assign " #assignname " \"" @default-dest "\""))
  800.         )
  801.     )
  802.  
  803. (exit)
  804.  
  805.